home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / kaleido.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-07  |  640 b   |  21 lines
  1. 1  'KALEIDOscope
  2. 2  KEY OFF:SCREEN 0,1,0:COLOR 15,1,9:WIDTH 40:CLS:DEFINT A-Z
  3. 50  GOSUB 230
  4. 110  FOR W=3 TO 50
  5. 120  FOR I=1 TO 19
  6. 130  FOR J=1 TO 19
  7. 140  K=(I+J)*0.6
  8. 150  COLOR J*3/(I+3)+I*W/24,J*3/(I+4)+(I+1)*W/24
  9. 160  LOCATE I,K:PRINT"<0xDF!>";:LOCATE K,I:PRINT"<0xDF!>";:LOCATE 24-I,40-K:PRINT"<0xDF!>";
  10. 170  LOCATE 24-K,40-I:PRINT"<0xDF!>";:LOCATE K,40-I:PRINT"<0xDF!>";:LOCATE 24-I,K:PRINT"<0xDF!>";:LOCATE I,40-K:PRINT"<0xDF!>";:LOCATE 24-K,I:PRINT"<0xDF!>";
  11. 175  IF INKEY$=CHR$(27) THEN 10000
  12. 180  NEXT J,I
  13. 190  NEXT W: GOTO 110
  14. 230  LOCATE 5,10:PRINT"KALEIDOSCOPE
  15. 240  LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN";
  16. 250  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  17. 260  K$=INKEY$:IF K$="" THEN 260
  18. 270  IF INKEY$=CHR$(27) THEN 10000
  19. 280  IF K$<>" " THEN 260 ELSE CLS:RETURN
  20. 10000  RUN"MENU
  21.